# Thu Jul 14 23:53:01 2022 edit
# 字符编码：UTF-8
# R 版本：R 4.2.1 x64 for window 11
#.rs.restartR()
#
rm(list = ls());gc()
dts <- read.csv('2022年7月14日，地产统计.csv',header = F)
names(dts) <- c('lng','lat')
require(leafletCN)
require(leaflet)

demomap('china') |>
  addCircleMarkers(
    data = dts
    ,lat =~lat
    ,lng = ~lng
  ,color = 'red'
    )
# Thu Jul 14 23:43:53 2022 ------------------------------
leaflet(dts) |>
  amap() |>
  addMarkers(
    lng = ~ lng,
    lat = ~ lat,
    # popup = ~ name,
    clusterOptions = markerClusterOptions()
  ) |>
  addCircleMarkers(
    ,lat =~lat
    ,lng = ~lng
    ,color = '#99FFFFFF'
  )
